home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / vt100.ads < prev    next >
Text File  |  1996-01-30  |  390b  |  16 lines
  1. PACKAGE VT100 IS
  2.  
  3. -- Procedures for drawing pictures on ANSI Terminal Screen
  4.  
  5.   Screen_Depth : CONSTANT Integer := 24;
  6.   Screen_Width : CONSTANT Integer := 80;
  7.  
  8.   SUBTYPE Depth IS Integer RANGE 1..Screen_Depth;
  9.   SUBTYPE Width IS Integer RANGE 1..Screen_Width;
  10.  
  11.   PROCEDURE Beep;
  12.   PROCEDURE ClearScreen; 
  13.   PROCEDURE MoveCursor (Column : Width; Row : Depth);
  14.  
  15. END VT100;   
  16.